BBS in a Box 7/BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso/Files/Hyper/Me-Mz/MH Power Scripts v1.3.cpt/MH Power Scripts v1.3/stack_-1.xml

Extensible Markup Language | 1988-05-06 | 4KB | 16 lines

<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE stack PUBLIC "-//Apple, Inc.//DTD stack V 2.0//EN" "" >
<stack>
    <name>in.3</name>
    <id>-1</id>
    <cardCount>20</cardCount>
    <cardID>5292</cardID>
    <listID>10451</listID>
    <cantModify><false /></cantModify>
    <cantDelete><true /></cantDelete>
    <cantAbort><false /></cantAbort>
    <cardSize>
        <width>512</width>
        <height>342</height>
    </cardSize>
    <script>on openStackGlobal OldUserLevelput the userlevel into OldUserLevelSet userLevel to 2hide MenuBargo to card "StartCard"end openStackon CloseStackGlobal OldUserLevelset the userlevel to OldUserLevelget the freeSize of this stackif it > 75000 thenput the value of it into NumKput Round(NumK/1000) into NumKanswer "Because a significant number of cards have been " &¬"modified or deleted, you can reclaim approximately " & NumK &¬"k of available disk space by compacting this stack." ¬with "Not Now" or "Compact"if it is "Compact" then doMenu "Compact Stack"end ifend CloseStackon mouseWithinGlobal LastField, TrapFieldName-- Field Select, Copyright by Mac Help Co., January 1988-- by Chris Hostetter, Mac Help Co., 1800 East Market Street-- Long Beach, CA  90805, [phone]--      This script is copyrighted and may not be--      used without the written permission of the author (above).if TrapFieldName is "Sort" thenif the visible of the message box is false thenput empty into TrapFieldNameexit MouseWithinend ifset cursor to 2if the commandkey is down thenput the name of the target into LastFieldput empty into TrapFieldNamehide message boxanswer "Sort in Ascending or Descending order?" with Ascending or Descendingif it is "Ascending" then do "sort ascending by" && LastFieldif it is "Descending" then do "sort descending by" && LastFieldend ifend ifif TrapFieldName is "Delete" thenif the visible of the message box is false thenput empty into TrapFieldNameexit MouseWithinend ifset cursor to 2if the commandkey is down thenput the name of the target into LastFieldput empty into TrapFieldNamehide message boxask "Ready to delete duplicates in field " with LastFieldput the number of cards into TotalCardsput 0 into DeleteCountset cursor to 4repeat with i = 2 to TotalCards-DeleteCountset lockscreen to falsego to card i of this backgroundset lockscreen to trueput the id of this card into StartID-- GET WHATEVER FIELD YOU WANT TO FIND INFORMATION INdo "Get" && LastFieldrepeat foreverfind itif the ID of this card is StartID then exit repeatadd 1 to DeleteCountdoMenu "Delete Card"end repeatend repeatbeepbeepbeepanswer DeleteCount && "duplicate cards found & deleted."end ifend ifif TrapFieldName is "Sort List" thenif the visible of the message box is false thenput empty into TrapFieldNameexit MouseWithinend ifset cursor to 2if the commandkey is down thenput the name of the target into LastFieldput empty into TrapFieldNamehide message box"SortList"end ifend ifend mouseWithinon "SortList"Global LastField-- DELETE CARRIAGE RETURNSset cursor to 4set lockscreen to truedo "put the number of lines of" && LastField && "into TotalLines"repeat with i = 0 to TotalLines-1do "get line" && TotalLines-i && "of" && LastFieldif it is empty then do "delete line" && TotalLines-i && "of" && LastFieldend repeatdo "put the number of lines of" && LastField && "into TotalLines"put 0 into jput False into Flagrepeat until Flagadd 1 to jif j = TotalLines then exit repeatdo "put line" && j && "of" && LastField && "into temp1"do "put line" && j+1 && "of" && LastField && "into temp2"if temp1 > Temp2 thendo "put" && Quote & temp1 & Quote && "into line" && j+1 && "of" && LastFielddo "put" && Quote & temp2 & Quote && "into line" && j && "of" && LastFieldput 0 in